home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / telecomm / bbs / cnetmem.lha / Membership
Encoding:
Text File  |  1994-12-06  |  9.6 KB  |  204 lines
  1. /*******************
  2. (c) Ivan Wheelwright 
  3. *******************/
  4.    bufferflush
  5.    options results
  6.    signal on syntax
  7.    tr=transmit
  8.    changewhere 'Membership Info' 
  9.  
  10. /********************************************************************
  11. Text Asking the New User to Join Your Excellent Bulletin Board System
  12. ********************************************************************/
  13.   Tr "f1                     a1c6u1Welcome to The Attic BBS!u0n1"
  14.   Tr "c3This BBS system is mostly user supported.  In helping maintain the high"
  15.   Tr "quality of software and features, such as our INTERNET network system,"
  16.   Tr "network mailbox, increasing Downloading and Time limits, increasing phone"
  17.   Tr "lines, i require a membership fee.n1"
  18.   Tr "c2This requires that you sign up to become a member of the system. Membership"
  19.   Tr "is only $25/year, and well worth it.  You will gain 100% more information"
  20.   Tr "through this system then you will reading any magazine or newspaper.  As"
  21.   Tr "well as the ability to send Computer Engineers and Programmers from all over"
  22.   Tr "the world infact, questions directly through the Usenet system.n1"
  23.   Tr "c3Your membership helps to pay for phone calls/rent, as well as upkeep of the"
  24.   Tr "system and new hardware purchases. You can do this for less than $2.08 a month!n1"
  25.   Tr "Please consider your decision.n1Keyg1h3"
  26.   Tr "You may pay with w1VISA, w1MASTERCARD, w1BANKCARD, w1CHEQUE, w1POSTAL M.O, w1CASH, or w1DDw1n1"
  27. Call Y
  28.    
  29. /*********************************************************************
  30. If a New User Decides that he would like to join, This will be printed
  31. *********************************************************************/
  32. OK:
  33.    Tr "f1c3Please leave Ivan some Mail telling him which membership level you will Join."
  34.    Tr "If paying by Credit card, Leave CARDHOLDERS Name, NUMBER and EXPIRY DATE,n1and the CARDTYPE!n2Press a Keyg1"
  35.    ge=getuser
  36.    tr=Tr
  37.    se=sendstring
  38.    ge 23;port=result
  39.    aaa=0
  40.  
  41.    do until aaa=1
  42.  
  43.    calleditor 25
  44.    saveeditor "ram:forcedmail"port
  45.    address command "list ram:forcedmail"port" >ram:filecheck"
  46.    st=open(check,"ram:filecheck",'r')
  47.    line=readln(check)
  48.    line=readln(check)
  49.    st=close(check)
  50.    if subword(line,2,1)~="empty" then aaa=1
  51.    if subword(line,2,1)="empty" then tr "b3n1s3c6You c3MUST ENTER c6a c3MESSAGEc6!s0w2n1"
  52.    call carrier
  53.    end
  54.  
  55.    cleareditor
  56.  
  57.    loadeditor "ram:forcedmail"port
  58.    setmailsubj "NEW USER JOINING"
  59.    writemail 1
  60.    logentry "new USER FORCED to send MAIL!"
  61.  
  62.    address command "delete >NIL: ram:forcedmail"port
  63.    address command "delete >NIL: ram:filecheck"
  64.  
  65.    Tr "s3DONE! Thankyou for your support."
  66.    Tr "s1You will be upgraded when the payment is received/processed.w3s0"
  67.    end
  68.    
  69. exit
  70.  
  71. /***********************************
  72. The Yes, No and Information Answers.
  73. ***********************************/
  74. Y:
  75.   Tr "c7Selecting [c1ic7] will show you the fully detailed Membership Information and Fees."
  76.   Tr "Selecting [c1sc7] will show quick table of what each Membership will buy.n1"
  77.   Tr "c3Only Select c1yc3 if you are absolutely sure you are ready to join now.n1" 
  78.   Query 'c2Do you wish to sign up now? c6(c1yc6/c1nc6/c1ic6/c1sc6)c2'
  79.    a=(result) 
  80.    if upper(result) = '###PANIC' then 
  81.                  do
  82.                  logentry NAME 'dropped carrier deciding whether to join or not'
  83.                  call NO
  84.                  end
  85.          
  86. select
  87. when a = 'i' then call INFO
  88. when a = 'n' then call NO
  89. when a = 'y' then call OK
  90. when a = 's' then call SHORT
  91. otherwise;
  92. end
  93. call y
  94.  
  95. /********************
  96. If a user selects NO!
  97. ********************/ 
  98. NO:
  99.     Tr "f1n1c3s1I'm sorry to hear you're not ready to sign up at this time!"
  100.     Tr "You may type c1s9ME s2c3at anytime in the BBS if you decide to change your mind."
  101.     Tr "Please reconsider your decision..the effort to run this BBS is a full time job.n1"
  102.     Tr "c3s0Press c1RETURN c3To Continue:g1"
  103.     end
  104. /**********************
  105. Short Quick Information
  106. **********************/
  107. SHORT:
  108.     Tr "f1                      z4cf What Access Levels buy you. q1n1"
  109.     Tr "  +--------------------------------------------------------------------+"
  110.     Tr "  | c5Access Name           c1NORMAL          c6ELITE        c7DREAM     c3      |"
  111.     Tr "  +--------------------------------------------------------------------+"
  112.     Tr "  | caPayment Amount         $25             $50          $100           c3|"
  113.     Tr "  +--------------------------------------------------------------------+"
  114.     Tr "  | caTime Per DAY           90min           120min     Unlimited        c3|"
  115.     Tr "  +--------------------------------------------------------------------+"
  116.     Tr "  | caCalls per DAY           5              10            10            c3|"
  117.     Tr "  +--------------------------------------------------------------------+"
  118.     Tr "  | caLength/Subscription    1 YR            1 YR         1 YR           c3|"
  119.     Tr "  +--------------------------------------------------------------------+"
  120.     Tr "  | caDownload Limit       2Meg/Day        5Meg/Day  10Meg/Day/Flexable  c3|"
  121.     Tr "  +--------------------------------------------------------------------+"
  122.     Tr "        CUSTOMISED ACCOUNTS ALSO AVAILABLE! SELECT I FOR MORE INFO!"
  123.     Tr " THE PAYMENT DETAILS AND ADDRESS IS CONTAINS WITHIN FULLY DETAILED INFORMATION"
  124. Call Y
  125.  
  126. /*********************************************
  127. If the users wants to see the Information file
  128. *********************************************/
  129. INFO:
  130.    Tr "f1             c2Membership Details can change at the Sysops Descretion.c3n1"
  131.    Tr "Access comes in 3 Levels, plus Customised. Please read them and if you choose"
  132.    Tr "one, All Payment details are shown on the last page.n1"
  133.    Tr "c6Press Returng1f1"
  134.    Tr "c6ACCESS   = c7Normal Paid Membership."
  135.    Tr "c6COST     = c7$25 - And lasts for One year upon recieving the money."
  136.    Tr "c6TIME     = c790 Minutes a day + use of the Time Bank."
  137.    Tr "c6DOWNLOAD = c7You may download 2 meg of files per day, unlimited yearly Download.n1}"
  138.    Tr "c3This is the regular membership for the average user. It is recommended"
  139.    Tr "for the 2400 Users of the System. Although any speed may use this membership."
  140.    Tr "You will have UUCP <Internet> access but not to its full extent.(News not Mail)"
  141.    Tr "Will give you full capabilities to edit your own logon sequence.n1"
  142.    Tr "c7Please add $2 if paying via Credit Card.n1"
  143.    Tr "c6}Press Returng1}f1}"
  144.    Tr "c2}ACCESS   = c7}Elite Membership"
  145.    Tr "c2}COST     = c7}$50 - And lasts for One year upon receiving the money."
  146.    Tr "c2}TIME     = c7}120 Minutes a day + use of the Time Bank"
  147.    Tr "c2}DOWNLOAD = c7}You may download 5 meg of files per day, unlimited yearly Downloadn1}"
  148.    Tr "c3}This is more recommended for the Faster 9600 & 14400 Users."
  149.    Tr "Will give you full capabilities to edit your own logon sequence."
  150.    Tr "Elite Membership also comes with a few extra little bonuses like..."
  151.    Tr "The ability to add new vote topics."
  152.    Tr "You get FULL UUCP <Internet> Access. (News and Worldwide Mail)"
  153.    Tr "You can trace SOME Anonymous messages."
  154.    Tr "A few other small privledges.n1"
  155.    Tr "c7Please add $3 if paying via Credit Card.n1"
  156.    Tr "c6Press Returng1f1"
  157.    Tr "c3}ACCESS   = c7}Dream Membership"
  158.    Tr "c3}COST     = c7}$100 - And lasts for One year upon recieving the money."
  159.    Tr "c3}TIME     = c7}Unlimited"
  160.    Tr "c3}DOWNLOAD = c7}You may download 10 meg of files per day, unlimited yearly Download/Flexablen1}"
  161.    Tr "c3}The point of Dream membership is for those who will be around for a long"
  162.    Tr "time. Even though stats are unlimited, please do not abuse it, when more lines"
  163.    Tr "are connected, it will not be too bad, but while still on 2 lines, please"
  164.    Tr "respect that other users would like to logon aswell."
  165.    Tr "Will give you full capabilities to edit your own logon sequence.n1"
  166.    Tr "c7Please add $5 if paying via Credit Card.n1"
  167.    Tr "c6Press Returng1f1"
  168.    Tr "c3ACCESS   = c7}Custom"
  169.    Tr "c3COST     = c7}To Be Discussed"
  170.    Tr "c3TIME     = c7}To Be Discussed"
  171.    Tr "c3DOWNLOAD = c7}To Be Discussedn1"
  172.    Tr "c3Confused? Well The Attic BBS allows you to customise your own account."
  173.    Tr "If you only want Internet access, or more time and less download, then we can"
  174.    Tr "discuss what you want and how much. If you wish a custom account, then select"
  175.    Tr "y for joining and tell me the details of what you are after.n1"
  176.    Tr "c6Press Returng1}f1}"
  177.    Tr "c3OK, You can send a Cheque or Postal Money Order to:n1"
  178.    Tr "c6Ivan Wheelwright"
  179.    Tr "P.O. Box 489 (Four-Eight-Nine)n1Noarlunga Centre"
  180.    Tr "5168n1South Australian1"
  181.    Tr "You can do a DIRECT DEBT to my account which is a fast way to join."
  182.    Tr "Just walk into a BankSA and credit account number 156/0032403040 under my"
  183.    Tr "name of Ivan Wheelwright/Extra-Bit. Then leave me mail and i will verify it.n1"
  184.    Tr "c2You can send Cash at your own risk,  If you do wish to send it this way,"
  185.    Tr "wrap the money inside other pieces of paper for concelment. I take no"
  186.    Tr "responsibilty.n1"
  187.    Tr "c7If you wish to pay using VISA, MASTERCARD, or BANKCARD. Then when leaving me"
  188.    Tr "a message about Joining, you MUST supply me with the following details.n1c3"
  189.    Tr "Card Type (Master, Bank, Visa)"
  190.    Tr "Name (As wrttien on your Card)"
  191.    Tr "Card Number (As shown on Card)"
  192.    Tr "Expiry Date (As shown on Card)"
  193.    Tr "n1c6NO REFUNDS" 
  194.    Tr "NO ACCOUNT SHARINGn1"
  195.    Tr "c1*** REMEMBER TO LEAVE DETAILS INSIDE THE ENVELOPE. NAME ETC ***"
  196.    Tr "c6Press Returng1hc"
  197.    Call Y
  198.  
  199. CARRIER:
  200. getcarrier ; carrier = result ; if carrier = 'FALSE' then exit
  201. return
  202.  
  203. exit
  204.